home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aau.d64 / dash game (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  462 lines
  1. 1 XZ=51
  2. 10 DIM B$(50),P(27),B(27),R(100),S(100)
  3. 20 POKE 788,52
  4. 100 PRINT "[147]";""
  5. 101 POKE 53280,1:POKE 53281,1
  6. 110 PRINT "   D A S H   G A M E"
  7. 120 PRINT ""
  8. 130 PRINT "CHOOSE WHICH WAY THAT YOU WANT TO PLAY:"
  9. 140 PRINT "1.  SOLITARE"
  10. 150 PRINT "2.  AGAINST A FRIEND"
  11. 160 PRINT "3.  AGAINST THE COMPUTER"
  12. 165 PRINT "4.  GET INSTRUCTIONS"
  13. 170 PRINT "    ";:INPUT CC
  14. 180 IF CC>4 OR CC<1 THEN 100
  15. 181 GOSUB 4000
  16. 182 PRINT "[147]";""
  17. 185 PRINT "WHAT IS YOUR NAME";:INPUT N1$
  18. 186 N1$=LEFT$(N1$,7)
  19. 190 ON CC GOTO 200,400,600,2600
  20. 200 REM SOLITARE
  21. 201 POKE 53280,15
  22. 210 GOSUB 5000
  23. 220 GOSUB 1000
  24. 230 T0=1:S9=0
  25. 240 PRINT "WHAT IS YOUR GUESS          [157][157][157][157][157][157][157][157][157][157]";:INPUT L$
  26. 250 GOSUB 2000
  27. 251 S9=S9+SS
  28. 255 PRINT "                                    ";
  29. 257 PRINT "TURN";T0;N1$;" SCORE";SS;" TOTAL SCORE";S9
  30. 260 IF E=999 THEN 300
  31. 270 GOSUB 4000
  32. 280 T0=T0+1:GOTO 240
  33. 300 PRINT "                              ";
  34. 305 POKE 53280,2
  35. 310 PRINT "DO YOU WANT TO PLAY AGAIN[160]";N1$:INPUT L$
  36. 315 E=0
  37. 320 IF MID$(L$,1,1)="Y" THEN 200
  38. 330 IF MID$(L$,1,1)<>"N" THEN 300
  39. 340 END
  40. 400 REM AGAINST A FRIEND
  41. 401 POKE 53280,15
  42. 405 PRINT "WHAT IS THE NAME OF YOUR FRIEND";:INPUT N2$
  43. 406 N2$=LEFT$(N2$,7)
  44. 410 GOSUB 5000
  45. 420 GOSUB 1000
  46. 430 T0=1
  47. 435 PRINT "                                        ";
  48. 440 PRINT "WHAT IS YOUR GUESS, ";N1$;"     [157][157][157][157][157]";:INPUT L$
  49. 450 GOSUB 2000
  50. 451 S9=S9+SS
  51. 455 PRINT "                                       ";
  52. 457 PRINT "TURN";T0;N1$;" SCORE";SS;" TOTAL SCORE";S9
  53. 460 IF E=999 THEN 550
  54. 470 GOSUB 4000
  55. 475 PRINT "                                        ";
  56. 480 PRINT "WHAT IS YOUR GUESS, ";N2$;"     [157][157][157][157][157]";:INPUT L$
  57. 490 GOSUB 2000
  58. 491 S8=S8+SS
  59. 495 PRINT "                                       ";
  60. 497 PRINT "TURN";T0;N2$;" SCORE";SS;" TOTAL SCORE";S8
  61. 500 IF E=999 THEN 550
  62. 510 GOSUB 4000
  63. 520 T0=T0+1
  64. 530 GOTO 435
  65. 550 POKE 53280,2
  66. 560 PRINT "DO YOU WANT TO PLAY AGAIN              ":INPUT L$
  67. 570 E=0
  68. 572 IF MID$(L$,1,1)="Y" THEN 410
  69. 574 IF MID$(L$,1,1)<>"N" THEN 550
  70. 599 END
  71. 600 REM AGAINST THE COMPUTER
  72. 610 PRINT "[147]":POKE 53281,0:POKE 53280,0
  73. 620 PRINT "";
  74. 630 PRINT "HOW DO YOU WANT THE COMPUTER TO PLAY"
  75. 640 PRINT "      1. EASY"
  76. 650 PRINT "      2. MEDIUM"
  77. 660 PRINT "      3. HARD"
  78. 670 PRINT "      4. VERY HARD"
  79. 680 PRINT "      5. EXPERT   "
  80. 690 PRINT "       ";:INPUT HH
  81. 695 REM IF HH=5 THEN 2500
  82. 700 IF HH<1 OR HH>5 THEN 600
  83. 701 IF S8=0 THEN 720
  84. 702 PRINT "[147]ENTER (1) FOR NEW SCORE"
  85. 703 PRINT     "      (2) FOR CUMULATIVE SCORE"
  86. 704 INPUT     "      ";SG
  87. 705 IF SG<1 OR SG>2 THEN 702
  88. 706 IF SG=2 THEN 720
  89. 707 S8=0:S9=0
  90. 720 GOSUB 5000
  91. 730 GOSUB 1000
  92. 740 IF HH=3 THEN GOSUB 5600
  93. 750 T0=1
  94. 760 PRINT "WHAT IS YOUR GUESS, ";N1$;"     [157][157][157][157][157]";:INPUT L$
  95. 770 GOSUB 2000
  96. 790 S9=S9+SS
  97. 800 PRINT "                                    ";
  98. 810 PRINT "TURN";T0;N1$;SS;" TOTAL SCORE";S9
  99. 820 IF E=999 THEN 950
  100. 830 GOSUB 4000
  101. 835 PRINT "  COMPUTER   THINKING                ";
  102. 840 IF HH>1 AND HH<4 THEN GOSUB 3100
  103. 850 IF HH=1 THEN GOSUB 3000
  104. 860 IF HH=4 THEN GOSUB 2320
  105. 865 IF HH=5 THEN GOSUB 3320
  106. 870 PRINT "  COMPUTER   GUESS,             [157][157][157][157][157]";L$
  107. 880 GOSUB 2000
  108. 890 S8=S8+SS
  109. 900 PRINT "                                    ";
  110. 910 PRINT "TURN";T0;"COMPUTER";SS;" TOTAL SCORE";S8
  111. 920 IF E=999 THEN 950
  112. 930 GOSUB 4000
  113. 935 T0=T0+1
  114. 940 GOTO 760
  115. 950 POKE 53280,2
  116. 960 PRINT "DO YOU WANT TO PLAY AGAIN ";N1$:INPUT L$
  117. 970 E=0
  118. 972 IF MID$(L$,1,1)="Y" THEN 600
  119. 974 IF MID$(L$,1,1)<>"N" THEN 960
  120. 999 END
  121. 1000 REM  PRINT LAYOUT
  122. 1001 PRINT "[147]";"";
  123. 1005 L1=0:L2=1:PRINT "     ";
  124. 1010 FOR T=1 TO N5
  125. 1020 L1=L1+LEN(B$(T))
  126. 1030 IF L1>25 THEN 1080
  127. 1040 FOR D=1TOLEN(B$(T)):PRINT"-";:NEXT
  128. 1050 PRINT " ";
  129. 1060 L$(L2)=L$(L2)+" "+B$(T)
  130. 1061 A$(L2)=A$(L2)+" "
  131. 1065 FOR I=1 TO LEN(B$(T)):A$(L2)=A$(L2)+"*":NEXT
  132. 1070 NEXT T
  133. 1075 PRINT "";:RETURN
  134. 1080 L1=0:L2=L2+1
  135. 1090 PRINT"":PRINT "     ";:GOTO 1020
  136. 1400 DIM B$(50),P(26),B(26),R(90)
  137. 2000 REM ADDING LETTERS
  138. 2010 PRINT "";"";
  139. 2011 SS=0
  140. 2012 IF P(ASC(L$)-64)=1 THEN 2310
  141. 2015 P(ASC(L$)-64)=1
  142. 2020 FOR T=1 TO L2
  143. 2025 PRINT "";
  144. 2030 FOR J=1 TO LEN(L$(T ))
  145. 2040 IF L$=MID$(L$(T),J,1) THEN 2080
  146. 2045 PRINT "";
  147. 2050 NEXT J
  148. 2060 PRINT""
  149. 2070 NEXT T
  150. 2071 GOTO 2300
  151. 2080 PRINT L$;
  152. 2090 SS=SS+1:IFJ=1 THEN A$(T)=L$+MID$(A$(T),2,LEN$(A(T)))
  153. 2095 JJ=J
  154. 2100 IF J>1 THEN A$(T)=MID$(A$(T),1,J-1)+L$+MID$(A$(T),J+1,LEN(A$(T)))
  155. 2105 IF J=1 THEN Q=1:GOTO 2150
  156. 2110 FOR Q=J TO 1 STEP -1
  157. 2120 IF MID$(A$(T),Q,1)=" " THEN 2140
  158. 2130 NEXT Q
  159. 2135 Q=1
  160. 2140 IF MID$(L$(T),Q,1)<>" " THEN 2290
  161. 2150 FOR QQ=Q+1 TO LEN(L$(T))
  162. 2160 IF MID$(L$(T),QQ,1)=" " THEN 2190
  163. 2170 IF MID$(L$(T),QQ,1)<>MID$(A$(T),QQ,1) THEN 2290
  164. 2180 NEXT QQ
  165. 2190 SS=SS+5
  166. 2200 FOR Q=1 TO L2
  167. 2210 IF A$(Q)<>L$(Q) THEN 2290
  168. 2220 NEXT Q
  169. 2230 SS=SS+5
  170. 2240 E=999
  171. 2290 GOTO 2050
  172. 2300 REM
  173. 2310 RETURN
  174. 2320 REM MOVE WITH HIGHEST POINTS
  175. 2321 SE=-1
  176. 2340 FOR MO=65 TO 90
  177. 2342 FOR Q=1 TO L2:C$(Q)=A$(Q):NEXT
  178. 2350 Q$=CHR$(MO)
  179. 2355 SS=0
  180. 2360 IF P(ASC(Q$)-64)=1 THEN 2485
  181. 2365 FOR T=1 TO L2
  182. 2370 FOR J=1 TO LEN(L$(T ))
  183. 2375 IF Q$=MID$(L$(T),J,1) THEN 2395
  184. 2380 NEXT J
  185. 2385 NEXT T
  186. 2390 GOTO 2485
  187. 2395 SS=SS+1:IFJ=1 THEN C$(T)=Q$+MID$(C$(T),2,LEN(C$(T)))
  188. 2400 IF J>1 THEN C$(T)=MID$(C$(T),1,J-1)+Q$+MID$(C$(T),J+1,LEN(C$(T)))
  189. 2405 IF J=1 THEN Q=1:GOTO 2435
  190. 2410 FOR Q=J TO 1 STEP -1
  191. 2415 IF MID$(C$(T),Q,1)=" " THEN 2430
  192. 2420 NEXT Q
  193. 2425 Q=1
  194. 2430 IF MID$(L$(T),Q,1)<>" " THEN 2480
  195. 2435 FOR QQ=Q+1 TO LEN(L$(T))
  196. 2440 IF MID$(L$(T),QQ,1)=" " THEN 2455
  197. 2445 IF MID$(L$(T),QQ,1)<>MID$(C$(T),QQ,1) THEN 2480
  198. 2450 NEXT QQ
  199. 2455 IF NX=0 THEN SS=SS+5
  200. 2460 FOR Q=1 TO L2
  201. 2465 IF C$(Q)<>L$(Q) THEN 2480
  202. 2470 NEXT Q
  203. 2475 SS=SS+5
  204. 2480 GOTO 2380
  205. 2485 IF SS<SE THEN 2490
  206. 2488 SE=SS:PM=MO
  207. 2490 NEXT MO
  208. 2495 L$=CHR$(PM)
  209. 2499 RETURN
  210. 2500 REM INSTRUCTIONS
  211. 2510 PRINT "NOBODY'S PERFECT!!!"
  212. 2520 GOSUB 4000
  213. 2530 GOTO 600
  214. 2600 REM INSTRUCTIONS
  215. 2610 PRINT "[147]"
  216. 2620 POKE 53281,7:POKE 53280,7
  217. 2630 PRINT "         D A S H   G A M E"
  218. 2640 PRINT "      * * * INSTRUCTIONS * * *"
  219. 2650 PRINT:PRINT
  220. 2660 PRINT "THIS IS A LETTER GUESSING GAME."
  221. 2665 PRINT "THE COMPUTER PICKS A SAYING FROM IT'S  "
  222. 2670 PRINT "DATA BANKS.  THE PLAYERS TRY TO GUESS "
  223. 2671 PRINT "THE SAYING ONE LETTER AT A TIME.  YOU"
  224. 2672 PRINT "GET ONE POINT FOR EACH TIME THE LETTER"
  225. 2673 PRINT "APPEARS,  FIVE POINTS FOR EACH WORD "
  226. 2674 PRINT "COMPLETED AND FIVE POINTS FOR "
  227. 2675 PRINT "COMPLETING THE ENTIRE SAYING. "
  228. 2676 FORT=1TO3000:NEXT:PRINT
  229. 2677 PRINT "YOU CAN PLAY BY YOURSELF (SOLITARE),"
  230. 2678 PRINT "AGAINST A FRIEND OR AGAINST"
  231. 2679 PRINT " THE COMPUTER. "
  232. 2680 FORT=1TO2000:NEXT:PRINT
  233. 2681 PRINT "IF YOU CHOOSE TO PLAY AGAINST THE "
  234. 2683 PRINT "COMPUTER, THERE ARE FIVE LEVELS "
  235. 2687 PRINT"OF DIFICULTY TO CHOOSE FROM."
  236. 2688 PRINT "(THE COMPUTER CHEATS ON THE TOP TWO  "
  237. 2689 PRINT "LEVELS.)             "
  238. 2690 GOSUB 4000
  239. 2700 PRINT "[147]"
  240. 2710 PRINT "WHEN YOU GET TIRED OF THE SAYINGS IN "
  241. 2712 PRINT "THE DATA BANK, YOU CAN SUBSTITUTE SOME"
  242. 2714 PRINT "OF YOUR OWN.  JUST REPLACE THE DATA "
  243. 2716 PRINT "STATEMENTS STARTING ON LINE 6000 WITH"
  244. 2718 PRINT "YOUR OWN SAYINGS.  YOU MUST PUT A "
  245. 2720 PRINT "COMMA AFTER EACH WORD AND THE LETTERS"
  246. 2722 PRINT "XX AT THE END OF THE SAYING."
  247. 2723 FORT=1TO2000:NEXT: PRINT
  248. 2724 PRINT "IF YOU CHANGE THE NUMBER OF SAYINGS IN "
  249. 2726 PRINT "THE DATA BANK YOU MUST CHANGE THE "
  250. 2728 PRINT "VALUE OF XZ IN LINE 1. (THERE ARE NOW"
  251. 2730 PRINT "51 SAYINGS IN THE DATA BANK.)"
  252. 2732 GOSUB 4000
  253. 2734 GOTO 100
  254. 2800 STOP
  255. 3000 REM COMPUTER PICKS RANDOMLY
  256. 3010 X=INT(RND(1)*26+1)
  257. 3020 IF P(X)=1 THEN 3010
  258. 3030 L$=CHR$(X+64)
  259. 3040 PRINT "";L$
  260. 3050 REM
  261. 3060 RETURN
  262. 3100 REM COMPUTER PICKS BY DISTRIBUTION
  263. 3110 FOR T=1 TO 26
  264. 3120 IF P(B(T)-64)=0 THEN 3140
  265. 3130 NEXT T
  266. 3135 T=T-1
  267. 3140 L$=CHR$(B(T))
  268. 3150 PRINT "";L$
  269. 3160 REM
  270. 3170 RETURN
  271. 3320 REM MOVE WITH HIGHEST POINTS
  272. 3321 SE=-100
  273. 3340 FOR MO=65 TO 90
  274. 3342 FOR Q=1 TO L2:C$(Q)=A$(Q):NEXT
  275. 3350 Q$=CHR$(MO)
  276. 3355 SS=-110
  277. 3360 IF P(ASC(Q$)-64)=1 THEN 3485
  278. 3361 SS=0
  279. 3365 FOR T=1 TO L2
  280. 3370 FOR J=1 TO LEN(L$(T ))
  281. 3375 IF Q$=MID$(L$(T),J,1) THEN 3395
  282. 3380 NEXT J
  283. 3385 NEXT T
  284. 3386 S(MO)=SS
  285. 3390 GOTO 3485
  286. 3395 SS=SS+1:IFJ=1 THEN C$(T)=Q$+MID$(C$(T),2,LEN(C$(T)))
  287. 3400 IF J>1 THEN C$(T)=MID$(C$(T),1,J-1)+Q$+MID$(C$(T),J+1,LEN(C$(T)))
  288. 3405 IF J=1 THEN Q=1:GOTO 3431
  289. 3410 FOR Q=J TO 1 STEP -1
  290. 3415 IF MID$(C$(T),Q,1)=" " THEN 3430
  291. 3420 NEXT Q
  292. 3425 Q=1
  293. 3430 IF MID$(L$(T),Q,1)<>" " THEN 3480
  294. 3431 NX=0
  295. 3435 FOR QQ=Q+1 TO LEN(L$(T))
  296. 3440 IF MID$(L$(T),QQ,1)=" " THEN 3455
  297. 3445 IF MID$(L$(T),QQ,1)<>MID$(C$(T),QQ,1) THEN NX=NX+1
  298. 3450 NEXT QQ
  299. 3455 IF NX=0 THEN SS=SS+5
  300. 3456 IF NX=1 THEN SS=SS-7
  301. 3460 FOR Q=1 TO L2
  302. 3465 IF C$(Q)<>L$(Q) THEN 3480
  303. 3470 NEXT Q
  304. 3475 SS=SS+5
  305. 3480 GOTO 3380
  306. 3485 IF SS<SE THEN 3490
  307. 3488 SE=SS:PM=MO
  308. 3490 NEXT MO
  309. 3495 L$=CHR$(PM)
  310. 3499 RETURN
  311. 4000 REM SPACE BAR
  312. 4010 PRINT "";
  313. 4020 PRINT "   HIT SPACE BAR TO CONTINUE [146]";
  314. 4030 GET W$:AD=RND(1)
  315. 4031 IF W$<>" " THEN 4030
  316. 4038 PRINT "";
  317. 4039 PRINT "                               ";
  318. 4040 RETURN
  319. 5000 RESTORE:REM READING
  320. 5001 FOR T=1 TO 26:READB(T):NEXT
  321. 5002 FOR T=1 TO 10:L$(T)="": A$(T)="":NEXT
  322. 5003 FOR T=1 TO 26:P(T)=0:NEXT
  323. 5005 FOR T=1 TO 100:R(T)=0:NEXT
  324. 5010 PRINT "READING DATA"
  325. 5020 X=INT(RND(1)*XZ+1)
  326. 5030 FOR TT=1 TO X
  327. 5050 T=1
  328. 5060 READ B$(T)
  329. 5070 IF B$(T)="XX" THEN 5090
  330. 5080 T=T+1:GOTO 5060
  331. 5090 N5=T-1
  332. 5100 NEXT TT
  333. 5110 FOR T=1 TO N5
  334. 5120 FOR TT=1 TO LEN(B$(T))
  335. 5130 R0=ASC(MID$(B$(T),TT,1))-64
  336. 5140 R(R0)=1
  337. 5150 NEXT TT
  338. 5160 NEXT T
  339. 5170 FOR T=1 TO 26
  340. 5180 IF R(T)=0 THEN P(T)=1
  341. 5190 NEXT T
  342. 5300 RETURN
  343. 5400 RESTORE:REM RESEARCH
  344. 5401 FOR T=1 TO 26:READB(T):NEXT
  345. 5410 PRINT "COMPUTER IS STUDYING"
  346. 5430 FOR TT=1 TO XZ
  347. 5450 T=1
  348. 5460 READ B$(T)
  349. 5470 IF B$(T)="XX" THEN 5490
  350. 5471 FOR OP=1 TO LEN(B$(T))
  351. 5472 D$=MID$(B$(T),OP,1)
  352. 5473 R(ASC(D$))=R(ASC(D$))+1+5/LEN(B$(T))
  353. 5474 NEXT OP
  354. 5480 T=T+1:GOTO 5460
  355. 5490 NEXT TT
  356. 5500 FOR T=1 TO 26
  357. 5501 BB=0:BN=0
  358. 5505 FOR RT=65 TO 90
  359. 5510 IF R(RT)<BB THEN 5530
  360. 5520 BB=R(RT):BN=RT
  361. 5530 NEXT RT
  362. 5540 B(T)=BN:R(BN)=0
  363. 5550 PRINT T,BN,CHR$(BN)
  364. 5560 NEXT T
  365. 5561 GOSUB 4000
  366. 5570 RETURN
  367. 5600 REM DIST FOR THIS PUZZLE
  368. 5605 PRINT "COMPUTER STUDYING"
  369. 5610 FOR T=1 TO 100:R(T)=0:NEXT
  370. 5630 FOR TT=1 TO N5
  371. 5671 FOR OP=1 TO LEN(B$(TT))
  372. 5672 D$=MID$(B$(TT),OP,1)
  373. 5673 R(ASC(D$))=R(ASC(D$))+1+5/LEN(B$(TT))
  374. 5674 NEXT OP
  375. 5690 NEXT TT
  376. 5700 FOR T=1 TO 26
  377. 5701 BB=0:BN=0
  378. 5705 FOR RT=65 TO 90
  379. 5710 IF R(RT)<BB THEN 5730
  380. 5720 BB=R(RT):BN=RT
  381. 5730 NEXT RT
  382. 5740 B(T)=BN:R(BN)=0
  383. 5760 NEXT T
  384. 5770 RETURN
  385. 5900 DATA 69,84,79,73,65,83,78
  386. 5905 DATA 72,82,76,71
  387. 5910 DATA 70,85,87,77,89,67,68,80,66,86
  388. 5920 DATA 75,81,88,74,90
  389. 6000 DATA IF,YOU,DO,NOT,BET,THEN,YOU,CANNOT,WIN,XX
  390. 6001 DATA THESE,ARE,THE,GOOD,OLD,DAYS,XX
  391. 6002 DATA HE,WHO,SLINGS,MUD,GENERALLY,LOSES,GROUND,XX
  392. 6003 DATA I,WOULD,RATHER,HAVE,A,BOTTLE,IN,FRONT,OF,ME,THAN,A,FRONTAL
  393. 6004 DATA LOBOTOMY,XX
  394. 6005 DATA ONE,CAN,GET,JUST,AS,DRUNK,ON,WATER,AS,ON,CAN,ON,LAND,XX
  395. 6006 DATA IN,AMERICA,THERE,ARE,TWO,CLASSES,OF,TRAVEL,FIRST,AND,WITH,CHILDREN,XX
  396. 6007 DATA THE,EASIEST,WAY,TO,MAKE,MONEY,IS,TO,STOP,LOSING,IT,XX
  397. 6008 DATA ONE,MANS,CEILING,IS,ANOTHER,MANS,FLOOR,XX
  398. 6009 DATA IF,EVERYTHING,SEEMS,TO,BE,GOING,YOUR,WAY,THEN,YOU,ARE,PROBABLY
  399. 6010 DATA IN,THE,WRONG,LANE,XX
  400. 6011 DATA IF,YOU,ARE,STUCK,WITH,A,LEMON,THEN,YOU,SHOULD,MAKE,LEMONADE,XX
  401. 6012 DATA VIRTUE,IS,THE,FAILURE,TO,ACHIEVE,VICE,XX
  402. 6013 DATA THE,SIMPLEST,EXPLANATION,IS,THAT,IT,DOES,NOT,MAKE,SENSE,XX
  403. 6014 DATA PRACTICAL,POLITICS,CONSISTS,IN,IGNORING,FACTS,XX
  404. 6015 DATA WHEN,IN,DOUBT,BLAME,THE,SCHOOL,SYSTEM,XX
  405. 6029 DATA ALWAYS,STORE,BEER,IN,A,DARK,PLACE,XX
  406. 6030 DATA A,MOTHERS,DELUSIONS,ABOUT,HER,CHILDRENS,BEAUTY
  407. 6040 DATA INTELLIGENCE,AND,GOODNESS,KEEP,HER,FROM,DROWNING,THEM,AT,BIRTH
  408. 6050 DATA XX
  409. 6060 DATA LITTLE,GIRLS,AND,BUTTERFLIES
  410. 6070 DATA NEED,NO,EXCUSE,XX
  411. 6100 DATA GULLIBILITY,IS,THE,KEY,TO,ALL
  412. 6110 DATA ADVENTURES,XX
  413. 6120 DATA GROW,OLD,ALONG,WITH,ME,THE
  414. 6130 DATA BEST,IS,YET,TO,BE,XX
  415. 6140 DATA TAXES,ARE,NOT,LEVIED,FOR,THE
  416. 6150 DATA BENEFIT,OF,THE,TAXED
  417. 6160 DATA XX
  418. 6170 DATA NEVER,UNDERESTIMATE,THE
  419. 6180 DATA POWER,OF,HUMAN,STUPIDITY
  420. 6200 DATA XX
  421. 6201 DATA IT,IS,EASIER,TO,SUFFER,IN
  422. 6202 DATA SILENCE,IF,YOU,ARE,SURE,SOMEONE,IS,WATCHING,XX
  423. 6204 DATA PEOPLE,GENERALLY,QUARREL,BECAUSE,THEY,CANNOT,ARGUE,XX
  424. 6205 DATA PUNCTUALITY,IS,THE,ART,OF,GUESSING,CORRECTLY,HOW,LATE,THE,OTHER
  425. 6206 DATA PERSON,IS,GOING,TO,BE,XX
  426. 6208 DATA TO,STAY,YOUNG,REQUIRES,THE,UNCEASING,CULTIVATION,OF,THE,ABILITY
  427. 6209 DATA TO,UNLEARN,OLD,FALSEHOODS,XX
  428. 6210 DATA SECRECY,IS,THE,BEGINNING,OF,TYRANNY,XX
  429. 6211 DATA THE,GREATEST,PRODUCTIVE,FORCE,IS,HUMAN,SELFISHNESS,XX
  430. 6212 DATA MIDDLE,AGE,IS,WHEN,YOU,HAVE,THE,CHOICE,OF,TWO,TEMPTATIONS,AND,YOU
  431. 6213 DATA CHOOSE,THE,ONE,THAT,WILL,GET,YOU,HOME,EARLIER,XX
  432. 6214 DATA THE,ULTIMATE,SIN,OF,THE,MIND,IS,THE,FAILURE,TO,PAY,ATTENTION,XX
  433. 6215 DATA THE,MISFORTUNES,HARDEST,TO,BEAR,ARE,THOSE,WHICH,NEVER,HAPPEN,XX
  434. 6216 DATA TILTING,AT,WINDMILLS,HURTS,YOU,MORE,THAN,THE,WINDMILLS,XX
  435. 6217 DATA THERE,IS,NO,SUCH,THING,AS,A,LITTLE,GARLIC,XX
  436. 6218 DATA EVEN,MODERATION,OUGHT,NOT,TO,BE,PRACTICED,TO,EXCESS,XX
  437. 6219 DATA HE,THAT,MARRIES,FOR,MONEY,EARNS,IT,XX
  438. 6220 DATA I,WONDER,WHERE,MOTHERS,LEARNED,ALL,THE,THINGS,THEY,TELL,THEIR
  439. 6221 DATA DAUGHTERS,NOT,TO,DO,XX
  440. 6222 DATA OURS,IS,A,WORLD,OF,NUCLEAR,GIANTS,AND,ETHICAL,INFANTS,XX
  441. 6223 DATA NEVER,TRY,TO,OUTSTUBBORN,A,CAT
  442. 6224 DATA XX
  443. 6225 DATA A,SUCCESSFUL,POLITICIAN,IS,ONE,WHO,CAN,GET,IN,THE,PUBLIC,EYE
  444. 6226 DATA WITHOUT,IRRITATING,IT,XX
  445. 6227 DATA YIELD,TO,TEMPTATION,OR,IT,MAY,NOT,PASS,YOUR,WAY,AGAIN
  446. 6228 DATA XX
  447. 6229 DATA NOTHING,IS,SO,FULL,OF,VICTORY,AS,PATIENCE,XX
  448. 6230 DATA THE,FIRST,ART,OF,BEING,A,PARENT,IS,SLEEPING,WHEN,THE,KIDS,ARE,NOT
  449. 6240 DATA LOOKING,XX
  450. 6241 DATA MORE,THAN,ONE,PESSIMIST,GOT,THAT,WAY,BY,FINANCING,AN,OPTIMIST,XX
  451. 6242 DATA THE,TOUGHEST,PART,OF,POLITICS,IS,TO,SATISFY,THE,VOTER,WITHOUT
  452. 6243 DATA GIVING,HIM,WHAT,HE,WANTS,XX
  453. 6244 DATA A,RUMOR,IS,AS,HARD,TO,UNSPREAD,AS,BUTTER,XX
  454. 6245 DATA ANYONE,WHO,STILL,THINKS,THAT,THE,SKY,IS,THE,LIMIT,HAS,NO
  455. 6246 DATA IMAGINATION,XX
  456. 6247 DATA THE,BEST,WAY,OUT,IS,ALWAYS,THROUGH,XX
  457. 6248 DATA THE,EASIEST,WAY,TO,AVOID,TEMPTATION,IS,PUBLICLY,XX
  458. 6249 DATA THE,DOOR,TO,HAPPINESS,OPENS,OUTWARD,XX
  459. 6250 DATA HE,WHO,HESITATES,IS,SOMETIMES,SAVED,XX
  460. 6251 DATA IMAGINATION,IS,MORE,IMPORTANT,THAN,KNOWLEDGE,XX
  461. 6252 DATA MORAL,INDIGNATION,IS,JELOUSY,WITH,A,HALO,XX
  462.